home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Course Scheduler 2.1.cpt / Course Scheduler 2.1 / background_4566.xml < prev    next >
Extensible Markup Language  |  1992-05-07  |  12KB  |  200 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>4566</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3377.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_6174.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>67</left>
  23.             <top>303</top>
  24.             <right>105</right>
  25.             <bottom>342</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>340</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Print Schedule</name>
  40.         <script>on mouseUpAnswer "Select Printer or Print?" ¬¨with "Chooser" or "Print" or "Cancel"if it is "Chooser" thenDoMenu"Chooser"else if it is "Print" thenset lockscreen to truehide bkgnd button "Print Schedule"hide bkgnd button "Schedule"hide bkgnd button "Find"hide bkgnd button "Next"hide bkgnd button "Previous"hide bkgnd button "Change Information"set lockscreen to falseAnswer "Print?" with "Schedule" or "Stack" or "Report"if it is "Schedule" thenAnswer "Print schedule now?" with "Do it" or "Cancel"if it is "Do it" thengo card "Morning"DoMenu"Print Card"go card "Afternoon"DoMenu"Print Card"go card 1end ifelse if it is "Stack" thenDoMenu"Print Stack..."elseDoMenu"Print Report..."end ifset lockscreen to trueshow bkgnd button "Print Schedule"show bkgnd button "Schedule"show bkgnd button "Find"show bkgnd button "Next"show bkgnd button "Previous"show bkgnd button "Change Information"set lockscreen to falseset icon of bkgnd button "Print Schedule" to 341repeat with x = 352 to 360wait 7 ticksset icon of bkgnd button "Print Schedule" to xend repeatwait 7 ticksset icon of bkgnd button "Print Schedule" to 340end ifend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>433</left>
  54.             <top>302</top>
  55.             <right>468</right>
  56.             <bottom>342</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <false /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>8419</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>Next</name>
  71.         <script>on mouseUpvisual effect scroll leftDoMenu"Next"end mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>3</id>
  75.         <type>button</type>
  76.         <visible> <true /> </visible>
  77.         <reserved5> 0 </reserved5>
  78.         <reserved4> 0 </reserved4>
  79.         <reserved3> 0 </reserved3>
  80.         <reserved2> 0 </reserved2>
  81.         <reserved1> 0 </reserved1>
  82.         <enabled> <true /> </enabled>
  83.         <rect>
  84.             <left>107</left>
  85.             <top>303</top>
  86.             <right>148</right>
  87.             <bottom>342</bottom>
  88.         </rect>
  89.         <style>transparent</style>
  90.         <showName> <false /> </showName>
  91.         <highlight> <false /> </highlight>
  92.         <autoHighlight> <false /> </autoHighlight>
  93.         <sharedHighlight> <true /> </sharedHighlight>
  94.         <family>0</family>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>15972</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Chicago</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <name>Schedule</name>
  102.         <script>on mouseUpglobal Num, FName, FFName, FLine, ATime, TimeHour, TimeMinute, TimeCardanswer "Recalculate schedule?" with "OK" or "Cancel"if it is "OK" thenanswer "Clear schedule?" with "Clear Only" or "Both" or "Redo Only"put it into Scheduleif (Schedule="Clear Only") or (Schedule="Both") thenanswer "Clearing Schedule" with "OK"DoLockrepeat with DayTime = 1 to 2if DayTime=1 thenput 8 into BeginHourput 12 into EndHourelseput 1 into BeginHourput 9 into EndHourend ifrepeat with NumDay = 1 to 6put NumDay into NumGetDayrepeat with NumHour = BeginHour to EndHourput (FName & NumHour) into Nameif (NumHour<3) or ((NumHour>=8) and (DayTime=1)) thenput 1 into CardNumberelseput 2 into CardNumberend ifget the number of this cardif it‚â†CardNumber then go card CardNumberput "" into card field Nameend repeatend repeatend repeatend ifif (Schedule="Redo Only") or (Schedule="Both") thenset lockscreen to falseanswer "Processing Schedule" with "OK"answer "Assume days with no meeting times are not meant to be scheduled?" ¬¨with "Yes" or "No"if it="Yes" thenput true into Assumeelseput false into Assumeend ifDoLockrepeat with NumCard = 3 to the number of cardsput 0 into Meetingsgo card NumCardset lockscreen to falseanswer "Processing Course #"&(NumCard-2) with "OK"DoLockget line 1 of card field "Course"put it into Titleif Title is empty thenset lockscreen to falserepeat until Title is not emptyanswer "There is no title for course #"&(NumCard-2) with "OK"ask "What is the title of this course?" ¬¨with "Course #"&(NumCard-2)put it into Titleput Title into line 1 of card field "Course"end repeatDoLockend ifrepeat with LineNum = 1 to 6put LineNum into NumGetDayget the number of this cardif it‚â†NumCard then go card NumCardget line LineNum of card field "Begin"put it into Beginget line LineNum of card field "End"put it into EndNumif (Begin=empty) and ((EndNum‚â†empty) or (not Assume))  thenput true into MeetsTodayset lockscreen to falserepeat until (Begin‚â†empty) or not MeetsTodayanswer "Does "&Title&" meet on "&FName&"?" ¬¨with "Yes" or "No"if it="Yes" thenput true into MeetsTodayelseput false into MeetsTodayif EndNum‚â†empty then put "" into line LineNum of card field "End"end ifif MeetsToday thenask "When does "&Title&" begin on "&FName&"?"put it into Beginput Begin into line LineNum of card field "Begin"end ifend repeatDoLockend ifif (Begin‚â†empty) and (EndNum=empty) thenset lockscreen to falserepeat until EndNum‚â†emptyanswer Title&" begins at "&Begin&" on "&FName&"." with "OK"ask "When does "&Title&" end on "&FName&"?"put it into EndNumput EndNum into line LineNum of card field "End"end repeatDoLockend ifif (Begin‚â†empty) and (EndNum‚â†empty) thenput Meetings+1 into Meetingsput Begin into ATimeSetTime -- set beginput TimeHour into BeginHourput TimeMinute into BeginTimeput TimeCard into BeginCardput FLine into BeginLineput FFName into BeginFieldput EndNum into ATimeSetTime -- set endput TimeHour into EndHourput TimeMinute into EndTimeput TimeCard into EndCardput FLine into EndLinego card BeginCardput Title into line BeginLine of card field BeginFieldput BeginCard into CurrentCardput BeginHour into CurrentHourput BeginLine into CurrentLinerepeat until (CurrentHour=EndHour) and (CurrentLine=EndLine)if CurrentLine=4 thenif (CurrentCard=2) and (CurrentHour=9) thenput EndHour into CurrentHourput EndLine into CurrentLineset lockscreen to falseanswer Title&" ends after 9 PM on "&FName&"." with "OK"DoLockelseput 1 into CurrentLineif CurrentHour‚â†12 thenput CurrentHour+1 into CurrentHourelseput 1 into CurrentHourend ifif (CurrentHour<8) and (CurrentHour>2) thenput 2 into CurrentCardelse if CurrentHour>9 thenput 1 into CurrentCardend ifend ifelseput CurrentLine+1 into CurrentLineend ifput FName&CurrentHour into CurrentFieldget the number of this cardif it‚â†CurrentCard then go card CurrentCardput false into FreeSpaceif (CurrentHour‚â†EndHour) or (CurrentLine‚â†EndLine) thenget line CurrentLine of card field CurrentFieldif it=empty then put true into FreeSpaceend ifif ((CurrentHour‚â†EndHour) or (CurrentLine‚â†EndLine)) and FreeSpace thenput "#" into line CurrentLine of card field CurrentFieldend ifend repeatend ifend repeatif Meetings=0 thenset lockscreen to falseanswer Title&" has no meeting times scheduled." with "OK"DoLockend ifend repeatgo first cardset lockscreen to falseset the cursor to 1end ifend ifend mouseUpon GetDayglobal Num, FNameif Num=1 thenput "Monday" into FNameelse if Num=2 thenput "Tuesday" into FNameelse if Num=3 thenput "Wednesday" into FNameelse if Num=4 thenput "Thursday" into FNameelse if Num=5 thenput "Friday" into FNameelseput "Saturday" into FNameend ifend GetDayon SetTimeglobal ATime, TimeHour, TimeMinute, TimeCard, FName, FFName, FLineput trunc(ATime) into TimeHourput (ATime - TimeHour) into TimeMinuteif TimeMinute<.25 thenput 1 into FLineelse if (TimeMinute>=.25) and (TimeMinute<.5) thenput 2 into FLineelse if (TimeMinute>=.5) and (TimeMinute<.75) thenput 3 into FLineelseput 4 into FLineend ifput (FName & TimeHour) into FFNameif (TimeHour<3) or (TimeHour>7) thenput 1 into TimeCardelseput 2 into TimeCardend ifend SetTimeon DoLockset cursor to 4set lockscreen to trueend DoLock</script>
  103.     </part>
  104.     <part>
  105.         <id>4</id>
  106.         <type>button</type>
  107.         <visible> <true /> </visible>
  108.         <reserved5> 0 </reserved5>
  109.         <reserved4> 0 </reserved4>
  110.         <reserved3> 0 </reserved3>
  111.         <reserved2> 0 </reserved2>
  112.         <reserved1> 0 </reserved1>
  113.         <enabled> <true /> </enabled>
  114.         <rect>
  115.             <left>25</left>
  116.             <top>302</top>
  117.             <right>60</right>
  118.             <bottom>342</bottom>
  119.         </rect>
  120.         <style>transparent</style>
  121.         <showName> <false /> </showName>
  122.         <highlight> <false /> </highlight>
  123.         <autoHighlight> <false /> </autoHighlight>
  124.         <sharedHighlight> <true /> </sharedHighlight>
  125.         <family>0</family>
  126.         <titleWidth>0</titleWidth>
  127.         <icon>17779</icon>
  128.         <textAlign>center</textAlign>
  129.         <font>Chicago</font>
  130.         <textSize>12</textSize>
  131.         <textStyle>plain</textStyle>
  132.         <name>Previous</name>
  133.         <script>on mouseUpvisual effect scroll rightDoMenu"Prev"end mouseUp</script>
  134.     </part>
  135.     <part>
  136.         <id>6</id>
  137.         <type>button</type>
  138.         <visible> <true /> </visible>
  139.         <reserved5> 0 </reserved5>
  140.         <reserved4> 0 </reserved4>
  141.         <reserved3> 0 </reserved3>
  142.         <reserved2> 0 </reserved2>
  143.         <reserved1> 0 </reserved1>
  144.         <enabled> <true /> </enabled>
  145.         <rect>
  146.             <left>150</left>
  147.             <top>303</top>
  148.             <right>190</right>
  149.             <bottom>342</bottom>
  150.         </rect>
  151.         <style>transparent</style>
  152.         <showName> <false /> </showName>
  153.         <highlight> <false /> </highlight>
  154.         <autoHighlight> <false /> </autoHighlight>
  155.         <sharedHighlight> <true /> </sharedHighlight>
  156.         <family>0</family>
  157.         <titleWidth>0</titleWidth>
  158.         <icon>510</icon>
  159.         <textAlign>center</textAlign>
  160.         <font>Chicago</font>
  161.         <textSize>12</textSize>
  162.         <textStyle>plain</textStyle>
  163.         <name>Find</name>
  164.         <script>on mouseUpset icon of bkgnd button "Find" to 511Ask "Find what?"Find itif the result is not empty thenanswer "Sorry, it was not found." with "OK"end ifset icon of bkgnd button "Find" to 510end mouseUp</script>
  165.     </part>
  166.     <part>
  167.         <id>8</id>
  168.         <type>button</type>
  169.         <visible> <true /> </visible>
  170.         <reserved5> 0 </reserved5>
  171.         <reserved4> 0 </reserved4>
  172.         <reserved3> 0 </reserved3>
  173.         <reserved2> 0 </reserved2>
  174.         <reserved1> 0 </reserved1>
  175.         <enabled> <true /> </enabled>
  176.         <rect>
  177.             <left>472</left>
  178.             <top>303</top>
  179.             <right>512</right>
  180.             <bottom>342</bottom>
  181.         </rect>
  182.         <style>transparent</style>
  183.         <showName> <false /> </showName>
  184.         <highlight> <false /> </highlight>
  185.         <autoHighlight> <false /> </autoHighlight>
  186.         <sharedHighlight> <true /> </sharedHighlight>
  187.         <family>0</family>
  188.         <titleWidth>0</titleWidth>
  189.         <icon>312</icon>
  190.         <textAlign>center</textAlign>
  191.         <font>Chicago</font>
  192.         <textSize>12</textSize>
  193.         <textStyle>plain</textStyle>
  194.         <name>Change Information</name>
  195.         <script>on mouseUpvisual effect dissolvego card 3end mouseUp</script>
  196.     </part>
  197.     <name></name>
  198.     <script></script>
  199. </background>
  200.